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ABSTRACT 


This document describes the Generalized File and Record 
Control (GEFRC) subroutines available for use on any GE- 
625/635 configuration handling input and output media. 
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PREFACE 


The Generalized File and Record Control (GEFRC) system has been 
implemented as a set of over 40 subroutines. Approximately half of them 
represent the routines called directly by the user, and the other half are 
called internally and perform common and special functions required with- 
in the system. 


This document describes all of the subroutines which comprise the GEFRC 
system. Arranged alphabetically by subroutine name, the following is 
given for each subroutine: 


Subroutine name 

Alternate names for the same subroutine 

The form and content of the calling sequence 

A brief description of the function performed 

The names of other subroutines which call the routine being 
described 

The names of other subroutines which are called by the 
routine being described 

The size of the subroutine 

A flow diagram indicating in general how the functions are 
performed, unless the description in item 4 is sufficient. 
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The following three abbreviations appear frequently within the flow charts: 


CRX- The current record index. This represents the value found 
in bits 0-17 of word 0 of the file control block. This value 
gives the location of the first data word in the logical record 
last accessed in that file. 


TEMP - The contents of bits 0-17 of word +3 of the file control block. / 


For input files, this value is the location of the last word of __; 
the physical record being processed plus one. For output ~ 


files, it gives the number of words within the current buffer \ 
which have not as yet been assigned. ne 


BCW - The buffer control word. This is the first word of the current’_ 
buffer and it is the extra word provided in addition to the 
specified block size. While transmission is taking place to 
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BCW - or from the buffer, the BCW contains the data control word 

(Cont.). (DCW) which controls the transmission. While the data is 
being processed in an input file, the BCW contains the 
location of the last word of the last accessed logical record 
plus one. While the buffer of an output file is being filled, 
the BCW contains the number of words which have already 
been assigned in that buffer. 


The list below shows the order in which the GEFRC subroutines should be 
included in the system library for optimum loading. 
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.GSTIN {GPNCH  // .GRLSE 


.GSTOT .GEPRN | .GPUT, .GPTBK, .GCOPY 
.GFRCE | GPRNT .GGET, .GGTBK 

.GBSRC .GIOPG ——.GR250 

.GFSRC | GRDRC ._—.GOPEN 

.GBSFM '.GALTR  .GCLSE 

.GFSFM -.GCMDK .GR200 

.GRWND .GRDCD .GR225 

.GWEF __.GWTRC .GR275 

.GWAIT | .GILLB .GR375, .GR390 

.GPTSZ -—«GBCD~—S—S*=«SGRQGO, . GRQBO 

.GWRIT ... .GBNRY | .GR990 

GREAD | .GEDIT : .GINHD, .GINTL, .GOUTH, .GOUTL, .GUSWH 
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GEFRC 


Name: .,GALTR 


Alternate Names: None 


Calling Sequence: CALL .GALTR (fcb) 


feb = Location of file control block 


Function: To obtain the next logical record for the designated 
file from either the Alter file (A*) or from the 


users input file, if an Alter file exists. 


Called By: ~ GRDRC 


Calls For: .GOPEN, .GGET, .GWTRC, .GRDCD, .GBNRY, .GCLSE; 


references .GEDIT 


Number of Words: 528 including A* file control block and buffer 
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DOES SWITCH WORD NO 
OF GECOS INDICATE RETURN 
AN ALTER FILE 


YES 


ALL AFTER Fr RST 
FIRST fo7 = -? 


OPEN A* FILE AS 
INPUT FOR ALTER FILE 


. GOPEN 


59 YES - 
fap saree = Rs CEE) 
NO 


INITIALLY |,.NO 


= 77 , YES SET READ | / 
(4) BEGIN > CURRENT? J SWITCH = 0 -—S\RETURN 
‘ 7 


~ TEQUAL eres) eee Z 


. YES 
NO 


RECORD FROM A* 


FILE \ GET RECORD 
a YES FROM USERS INP 
~GGET END > BEGIN? ee 
FILE 
7 NO J .GRDCD 
EFS SET 
EOF RETURN? 4 SWITCH E 


N WORD fo ON IES! fe 
oe : . E E@F ON INPUT? 
\YES/ 1S ALTER SET REPEAT : : 


NO 
C M—4FILE TO BE SWITCH # 0 6 | 
LISTED? A END > CURRENT? 


NO [ YES 
D 


F 


WRITE BAD CARD ON| ya ) 
EXECUTION REPORT 
CONVERT BEGIN & 


IS RECORD A $ ie SET REPEAT ND ALTER NUMBERS\ oN 
ALTER CARD? SWITCH = 0 { TO BINARY iB) 


OUTPUT RECCRD 
JUST READ 
~GWTRC 


No . GBNRY = 
Is iT § NO TS RECORD A YE 
UPDATE? { $ CONTROL CARD? (F ) 
YES NO 


IS LIST SWITCH\ YES REPEAT SWITCH, YES SET USERS FCB 
: FE y CRX TO POINT 

SET? = 0? 

O 


NIT=0 | TO RECORD IN 
NO | ‘ 
UPDATE CARD ASK \YES| | SG. (a) 
FOR LISTING? ae 


NO 


SET CONTROL 


SET READ FOR RECORD 
SWITCH # GO SFOUND IN ALTER 
FILE 


ae Seer emer senate sae 
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Name: - GBCD 


Alternate Names: None 


Calling Sequence: CALL .GBCD 
with binary number in the A register right 
justified. Return with the BCD equivalent 


right adjusted in the combined AQ registers. 
Function: To convert a binary integer to its BCD equivalent. 
The value of the integer should not exceed ten 
decimal digits. 
Called By: .GILLB, .GIOPG 


Calls For: None 


Number of Words: 26 
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Name: .GBNRY 


Alternate Names: None 


Calling Sequence: CALL .GBNRY 
with BCD value right justified in the combined 


AQ registers. Return with the equivalent binary 


integer right justified in the Q register. 


Function: To convert the BCD representation of an integer to its 
binary equivalent. The value of the integer should not 


exceed ten decimal digits. 
Called By: .GILLB, .GALTR, .GIOPG 


Calls For: None 


Number of Words: 18 
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Name: .GBSFM 
Alternate Names: BSTFM, .GABSF 
Calling Sequence: CALL BSTFM (fcb,_ n) 
feb = location of file control block 
n = number of files 
Function: To backspace an unlabeled magnetic tape file to a 


position immediately following the nth preceding 


standard end-of-file (FM=17g). 


Called By: User 


Calls For: .GR960 


Number of Words: 80 
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“DEVICE MAGNETIC 


TAPE NOT SYS@UT ‘NO (ABORT 
PRESENT OPEN #1 
W/O LABELS 


YES 


ADJUST FILE 
\COUNT BY n-1 
'SET BLOCK 

| COUNT ZERO 


NPUT FILE 


WITH 
BUFFERS? 
“NO 


BACKSPACE TO 
FILE MARK 


STATUS EOF 
WITH FM=17,? 


YES 


NO 


STATUS TAPE AT\ No 
LOAD POINT? 


GE-GOO SERIES 


IF 2 BUFFERS & FILE 
READ AHEAD, BaCKSPACE 
ONE RECORD 


FORWARD SPACE, 


RECORD 
NO (THE FM) 
A) eo SX 
= ( RETURN } 
f 
ABORT aaa 
#2 
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Name: .GBSRC 


Alternate Names: BSREC, .GABSR 


Calling Sequence: CALL BSREC (fcb, n, eof) 


feb = location of file control block 


= number of records 


is 


eof = location of end-of-file routine 
Function: To space over the n last accessed physical records on 


the designated magnetic tape file in a backward 


direction. 
Called By: User 
Calls For: .GRLSE, .GR375, .GR960 


Number of Words: 126 
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f \ 
/ ABORT \ 
STATUS TAPE 1 Hy H 
‘. ON LOAD POINT? } 

DEVICE MAGNETIC \ ae 

TAPE NOT SYSOUT | ie pa 
PRESENT OPEN Nee aeen SRhOR oe 
ROUTINE GIVEN? Ly“ 
UNIFY TAPE \ | X 
POSITION» Re 


-GRLSE / CALL USER ERROR 
PROCEDURE, CODE 7 


«GR375 


pan 


“INPUT FILE WITH 
BUFFERS AND "NEXT RE 
NOT THERE" BIT OFF 


BACKS PACE 
ONE RECORD 


FILE COUNT 
ONE 


aq 


BACKSPACE j| 


n oe 
STATUS —\ No — ~ NOU ot 
CHANNEL STATUS EOF? oes 


READY? [ves 
YES ~~ YES SET n TO RECORD 
BLOCK YES COUNT RESIDUE + 1 
COUNT=0? 
NO 


BACKSPACE 
TO FILE MARK 


REDUCE BLOCK 


COUNT BY 
Mh ees ) 
COUNT BY 
/--\cy f INBUL FILE, = 
(RETURNR WITH : 
ee BUFFERS?» aan 
nee YES / EGF 


SET "NEXT RE- 
CORD ‘NOT THERE 


{RETURN 


' 
» 


GE-600 SERIES = em 


Name: .GCLSE 
Alternate Names: CLOSE, .GACLS 


Calling Sequence: CALL CLOSE (list, n) 
| list = location of first of n consecutive file 
designator words for the files to be 
closed. 


nm = number of files to be closed. 


Function: To disconnect (close) files when no further activities 


are to be performed on them, 
Called By: User, .GCMDK, .GALTR 


Calls For: .GR200, .GR275, .GR960, .GR980, .GR990, .GOUTL; 


.GPTSZ if so initialized. 


Number of Words: 238 
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INITIALIZE TO 
START WITH FIRST 
FILE IN LIST 


A 
; ILE ALREADY YES | /ALL FILES NO SET FOR NEXT) A 
\ CLOSED? DONE? BL FILE IN LIST : 
ne YES 


REMOVE FILE 
FROM CHAIN OF 
OPEN FILES AND 
ADJUST CHAIN 


WAS CHAIN NO, a 
CORRECT? 
YES 


SET FCB POINTER 
ZERO TO INDICATE 
IT IS CLOSED AND 
REDUCE COUNT OF 

OPEN FILES 


INPUT FILE? }~£23{ MAGNETIC =o 
TAPE? 
Nn YES 
BIT 23 OF NO (K 
DESIGNATOR : 
WORD = 0? 
DELETE LAST 


YES 


: ADD TO BLOCK 


DEVICE LINKED WRITE SERIAL NUMBER - 
; YES BUFFER YES, BUFFER & PREPARE 2 
DRUM/ DSU? FULL? 
.GR200 WORD EOF 
NO NO RECORD 


NO “FILE HAVE ~ PUT EMF IN 
\ BUFFERS? BUFFER & ADJUST 
TEMP & BCW 
/ YES 


YES 


ay BUFFERS ~~ ~=—NO 
ek EMPTY? {c ) 


~ 


-GRI80 


WRITE 
BUFFER 
25) \ fewoe Po 


WAIT FOR 
PREVIOUS I¢ 
TO FINISH 


———_-—. 
/ FILE FOR 
SYSQUT? 


YES 


WAIT FOR I9| 
TO FINISH r@ 


[ ee eee 
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DEVICE 
DRUM/DSU? 


NO 


FILE TO BE \ YES 
LOCKED? 


NO 


SET CLOSED, 
NOT PRESENT & 
W/O E@F BITS 


ALL FILES NO 
DONE? 


YES 


IF NO FILES 
STILL OPEN, 
WAIT FOR ALL 
If TO FINISH 


IF ONE OF THE FILES 
CLOSED WAS CAUSING 
C@MDEK OUTPUT TO 

BE PRODUCED, CLOSE 
THE K* FILE 
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YES} WRITE EOF 


“|TAPE REEL 


WRITE OUTPUT 
TRAILER LABEL 
.GQUTL 


=) 


SET LOCKED BIT 
AND RELEASE 
DEVICE IF NOT 
MULTI-FILE ~ 


ANALYZE ~ 
STATUS 
-GR275. 


28 a ree, 


EOF RETURN? 


SET BLOCK __ 
AND FILE 
COUNTS ZERO 


‘ 
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Name: .GCMDK 
Alternate Names: None 


Calling Sequence: CALL .GCMDK (fcb) 
| fcb = Location of file control block 
Function: To compress the current logical record of the designated 
file into the COMDEK format if so indicated in the 
appropriate position of the GECOS switch word. The 
compressed record is inserted in the K* file which is 


also opened and closed by this routine. 
Called By: .GRDRC 
Calls For: ..GOPEN, .GCLSE, .GILLB, .GWIRC; references .GEDIT 


Number of Words: 618 including K* file control block and buffer 


GEFRC 
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INITIALIZE | 
FOR FIRST ' 
CARD 


FILE 


. GGPEN 
COMDEK OUTPUT\NO 
WANTED? 
YES 


INPUT FLLE OPEN NO ENTER 76g IN OUTPUT 
AND W/O EOF? NEXT CHAR C@MDEK 
CARD 


YES OF COMDEK | 


CLOSE K* 
FILE 
.GCLOS 


INPUT RECORD $ YE 
CONTROL CARD? 


NO 


INIT. FOR NEW 
INPUT RECORD 


YES 
CHAR = BLANK? YES,/ ADD 1 TO BLANK MORE CHARACTERS? B } 
COUNT ce 

NO 


NO 


SET NEW © 
2 
BLANK COUNT <3 TENCTES 


YES 
ENTER 77g IN 


YES ( BLANK COUNT = 02 | 0D ) NEXT CHAR OF 


C@MDEK & RESE! 
NO SWITCHES 


ENTER BLANKS oo 
SET COUNT SS OS CINDER YES inet 
- CARD? COMDEK 

: CARD 
ENTER LENGTHS NO aes 


END OF COMDEK \ YES OUTPUT COMDEK | 
CARD? RECORD & SET 
NEW LENGTHS 


(END OF COMDERYES/ENTER LENGTHS & 


CARD? OUTPUT C@MDEK 
ENTER CHAR NO RECORD 
& ADJUST \ 
LENGTHS MORE INPUT? \XO ce) 
YES 


GEFRC 
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Name: .GCOPY 
Alternate Names: COPY, .GACOP 


Calling Sequence: CALL COPY (fcbwout, fcb~in) 
fcb~out = location of file control block of the 
output file 
£Ecb~in = location of file control block of the 


input file 
Function: To move the last accessed logical input record from 


the designated input file to the next available position 


in the designated output file. 


Called By: User 


Calls For: .GCOPY is a separate entry to .GPUT 


GE-6OO SERIES ae 


-14- 


Name: ,GEDIT 
Alternate Names: IOEDIT, .GAEDI 


Calling Sequence: CALL IOEDIT (list, n) 
list = location of first entry in a list of 
control parameters. 
n = number of entries in the list. 


A list entry has the form ZERO control, code 


where control is the location of a parameter and 


code indicates the type of parameter. 


Function: To initialize the edit functions such as PRINT and PUNCH 
with parameters which do not usually vary with each 
call for these routines. These parameters are (in order 
of their code numbers): 1) first heading line for 
PRINT, 2) second heading Line for PRINT, 3) label for 
PUNCH, 4) label for COMDEK output, 5) first page 
number for PRINT, 6) location of P* file control block 


for reporting errors,and 7) report code for PRINT. 
Called By: User 
Referenced by: .GALTR, .GCMDK, .GILLB, .GIOPG, .GPNCH, .GPRNT 
Calls For: None 
Number of Words: 60 
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GE-600 SERIES 


n = NUMBER OF 
ENTRIES IN 
LIST 


G 


IS CODE WITHIN 
RANGE OF ALLOWABLE 
“CODES? 


INITIALIZE VALUE IN 
-GEDIT STORAGE WITH 
CONTROL VALUE 
SPECIFIED BY THE 
CODE 


REDUE n 
BY ONE 
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Name: » GE PRN 


Alternate Names: EPRINT 


Calling Sequence: CALL EPRINT (fcb, image, slew, n) 
fcb = location of file control block 
image = location of first word of line image 
slew = location of word containing slewing 
information in bits 30-35 


n = number of initial words in image which do 


not require editing. 


Function: To edit a,print line image prior to writing via the 


PRINT routine. 
Called By: User 
Calls For: ~GPRNT 


Number of Words: 160 


00 seo 
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MOVE n WORDS FROM 
USERS IMAGE TO 
EPRINT IMAGE 


INITIALIZE INPUT AND 
OUTPUT TALLIES TO 
START WITH (6N+1)th 
CHAR, INPUT TO END 


WITH 132md CHAR, & 
OUTPUT WITH 134th 


f Ai 
GET INPUT CHARACTER 
CHARACTER = \ YES ENTER TWO 77's AND 
17g or 77g 2 | INPUT CHAR INTO OUTPUT —(2) 


BUT CHAR INTO OUTPUT 


ROOM FOR 
MORE OUTPUT? 


NO 
MORE INPUT? 


NO 


MORE INPUT? 


FILL OUT OUTPUT 
IMAGE WITH 17's, 
gnore 


“IS SLEW REQ 


es OF PG? = 
sea eens PRINT OUTPUT 

NO IMAGE WITH USER'S 
SLEW CODE. .GPRNT/ 


PRINT OUTPUT 
IMAGE WITHOUT 
LEWING .GPRNT 


RETURN 


REINITIALIZE OUTPUT 
TALLY AND INSERT 
CONTROLS IN OUTPUT 
IMAGE TO SKIP NO. 
CHAR ALREADY ENTERED 


| 
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Name: .GFRCE 


Alternate Names: FORCE, .GAFRC 


Calling Sequence: CALL FORCE (fcb) 


fcb = location of file control block 


Function: To force an end-of-reel condition on a magnetic 


Nat emcee 


tape file. 


Called By: User 


Calls For: .GINTL, .GOUTL, .GRLSE, .GUSWH, .GR960 


Number of Words: 56 
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ssp 


DEVICE MAG TAPE’ 
NOT SYSQUT PRESENT’ 
OPEN“ 


YES 


FILE HAVE 
BUFFERS? 


FLUSH. 


INPUT FILE? 
NO 


WRITE EOF 


RETURN 
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NO 


YES 


TAPE LABELED? 


NO 


m aaa 
# 4 
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} : \ \/ / is a ! 
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f i VPs Lees Ne 
! e ” 1 
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‘ } rs ‘ 7 p 
| ° ¥ a 
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id : oe 
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So { i4 o or 
o ‘ Ps 
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YES 


"SET BLOCK | 
COUNT | 
_ZERO__ 


-GINTL 


UNIT swrTcH =” \ 
AND LABEL CHECK 
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Name: ,.GFSFM 
Alternate Names: FSTFM, .GAFSF 
Calling Sequence: CALL FSTFM (fcb, n) 
feb = location of file control block 
n = number of files 
Function: To forward space an unlabeled multi-file magnetic 


tape file to a position immediately following the nth 


succeeding standard end-of-file (FM=17.). 
Called By: User 
Calls For: .GR960 


Number of Words: 60 
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‘DEVICE MAG TAPE 
NOT SYS#UT PRESENT NO ABORT 
OPEN W/O LABELS #1 
MULTI-FILE REEL 


YES 


ADD n TO FILE COUNT 
AND SET BLOCK COUNT 


ZERO 


SET EOF BIT ON; 


INPUT YES IF TWO BUFFERS WITH 
FILE? EXTRA RECORD PRE- 
VIOUSLY READ, BACK- 
NO SPACE ONE RECORD 


SPACE TO 
FILE MARK 


GEFRC 
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Name: .GFSRC 


Alternate Names: FSREC, .GAFSR 


Calling Sequence: CALL FSREC (fcb, n, eof) 
fcb = Location of file control block 
n = number of records 


eof = Location of end-of-file routine 


Function: To space over the next n physical records on the 


designated magnetic tape file in a forward direction. 


Called By: User 


Calls For: .GRLSE, .GR250, .GR275, .GR375, .GR960 


Number of Words: 150 
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DEVICE MAG- NO 


UNIFY TAPE 
POSITION 
-GRLSE mars 


FILE PRESENT) MG 
OPEN W/O EQF? 
YES 


INPUT FILE WITH 
BUFFERS AND "NEXT 
RECORD NOT THERE" BIT, 
OFF? 


BACKSPACE 
ONE RECORD 


FORWARD 


SPACE OVER | 
_n_RECORDS 


STATUS CHANNEL YES 
READY? 


NO 


Oe 
: BIT 


ABORT 
#6 
ANALYZE NOT PRESENT\ YES | /agort 
STATUS RETURN? .#L 
~GR250 ae 
NO 
YES _/ABORT 
EQF RETURN?. \ #2 
NO Noses 
TURN OFF 


YES/ EGF BIT 
READ RETURN? ._/’ 


NO 
ABORT 
#3, #4 
ADD n TO BLOG 
COUNT; IF INPUT, 
ASET "NEXT RETURN 


RECORD NOT 
THERE" BIT ON 


f 


a 


NO 
STATUS BL 
NO USER ERROR YES HOR 
Situs EGE! ROULINE GHEY TAPE ON #7 . 
YES READ? 3 
s |SPACE TO a YES 
=e ets ‘ABORT CALL USER 
#5 ERROR PROCEDUR 
NO CODE 6 .GR375 
Ge FM = 17g? 
YES SET n TO 
RECORD COUNT Co 
ADJUST BLOQ SET BLOCK RESIDUE + 1 
OUNT BY n COUNT ZERO, 
LESS ADD 1 TO FILE 
RESIDUE T A} 
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Name: .GGET 


Alternate Names: GET, .GAGET 


Calling Sequence: CALL GET (fcb, eof, stor) 
feb = location of file control block 
eof = location of end-of-file routine 
stor = location of first word of area to which 


the record is to be moved 
Function: To obtain the next logical input record from the 
designated input file and, if desired, move that 
logical record to a working area. 
Called By: User, .GALTR, .GRDCD 


Calls For: .GR225, .GR250, .GR275, .GR375, .GR960, .GR990 


Number of Words: 218 
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SET FLAG SET FLAG 
FOR THIS FOR THIS 
ENTRANCE ENTRANCE _ 


(4) RECORD NOT IN 
NO BUFFER THE ONLY \ NO saat 


FILE PRESENT, a EXCEPTION? im, BRGEESTONS a 
OPEN, INPUT, W/O achee : 
E@F, BUFFERS, x 
RECORD IN B ) EGF BUT 


YES ISSUE. READ EXIT? 
READ SELECT NO 
.GGET NO ~GR225 ™\ YES 
ENTRANCE? 


OUTPUT 
FILE? #1 


34 
(a) as 
BCW < TEMP ie E@F OR NOT \YES _/£oF 
i 
peony 7 ONE BUFFER, <SSUE PRESENT? EXIT, 
TES & TEMP SREAD SELECT ; 
= 02 : -GR225 


vas ABORT 
BECOMES (E) (Ez 
2 
ae BUFFER? ; 


RECORD YES {c) 
YPE_ FIXED? 


be GET. RECORD CRX + 1 => BCW 
aEeene NO | SIZE FROM (RECORD \ YES} put EMF CHAR 
; ARIABLE ~| RECORD AND SIZE = 0? IN STATUS 
YES ADJUST CRX NO WORD 
ET RECORD (D ) 
USER 5,2* EOF = 173? 
| YES 
©) 2 
ECORD YES 


> ABORT 
#5 


@= 
oO 


IF 3RD PARAMETER 
| GIVEN, MOVE RECORD 
FROM BUFFER TO 


CRX + RECORD 
SIZE > BCW 
AREA GIVEN 
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WAIT FOR 
I¢ TO 
FINISH 


{ PUT ADDRESS OF LASI 
| WORD READ + 1 


! INTO TEMP 
SET NEXT 
ANALYZE RECORD NOT 
N YES 

TRANS STON eK STATUS eee THERE BIT & ADD: 
YES che? 10 0 BLOCK COUNT ; ot 
| | (EOF 
G | 9 \Y SET |—EXIT . 
; EQF RETURN? 1s age 

NO BIT | 


ADD ONE TO 
BLOCK COUNT J 
FILE HAVE BLOCK COUN : 
BLOCK SERIAL} £5 _s(= SERIAL # xe (USER ROUTINE) NO, 
NUMBERS? IN RECORD? GIVEN? ‘ | 
- ae YES 


@ CALL USER ERROR 
PROCEDURE WITH 
CODE #1 .GR375 
PUT LOC OF CURRENT 
SET BLOCK COUN 
TO EQUAL VALUE 
IN RECORD 


PUT LOC OF 
CURRENT BUFFER 
+ 1 IN CRX 


BUFFER + 2 IN CRX 
AND SET TEMP TO 


CRX + # WORDS GIVE 
IN BLOCK CONTROL 
WORD 


ISSUE PREPARED 


SELECT ee 
_.GRY90 
CALL USER Y WAS CODE = 6 ek 
(ERROR PROCEDURE IGNORE ERROR? FOR BLANK TAP 4 L 
~GR375 NO ON READ? ; erat 
IRELSSUE | YES 


WAIT FOR I¢ (1 
TO FINISH a 


TRANSMISSION OK? )*£2./7.) 
NO 


FS 
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Name: .GGTBK 
Alternate Names: GETBK, .GAGTB 


Calling Sequence: CALL GETBK (fcb, eof, stor) 


feb = location of file control block 


eof location of end-of-file routine 
stor = Location of first word of area to which 


the record is to be moved. 


Function: To obtain the first logical record in the next 
physical record from the designated input file and, 


if desired, move that Logical record to a working area. 
Called By: User 


Calls For: .GGTBK is a separate entry to .GGET 


GE-600 SERIES , — 
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Name: »~GLLLB 


Alternate Names: None 


Calling Sequence: CALL .GILLB (kind, request, label) 
kind = location of word indicating type of 
card to be Labeled--zero, column binary; 
non-zero, Hollerith 
request = 0 if request is from .GCMDK routine, 
1 if request from .GPNCH routine 
label = location of the first word of the 


label area 
Function: 
To produce a sequenced label for punched card output 
such that it will appear to be a Hollerith label in 
columns 73-80 regardless of the type of card produced. 


Called By: .GCMDK, .GPNCH 


Calls For: .GBCD, .GBNRY; references .GEDIT 


Number of Words: 208 
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IS REQUEST 


FOR C@MDEK 
LABEL? 


IS THERE A NEW 
PUNCH LABEL TO BE 
USED? 

YES 


A 


SEPARATE TRAILING 
NUMERIC CHARACTERS TO 
BE INCREMENTED, SET 


LIMIT FOR NUMERIC 
‘PORTION 


CONVERT NUMERIC 
PORTION TO BINARY 
-GBNRY 


IS CURRENT CARD 
TO BE 


HOLLERI TH? 
“~ 1NO 


CONVERT LABEL 
CHARACTERS TO FORM 
- THAT WILL PUNCH AS 
BCD IN A COLUMN 
. BINARY CARD AND MOVE 
' THIS LABEL TO AREA 
REQUESTED 


GE-GOO SERIES- 


YES: 


IS THERE A NEW YES , 
C@MDEK LABEL TO BE A) 


USED? 


NUMERIC PART YES SET NUMERIC 


> MAXIMUM? PART TO 
ZERO | 


4DD ONE TO 
NUMERIC PORTION 


CONVERT NUMERI 
PART TO BCD 
.GBCD 


FORM BCD LABEL WITH 
LEADING CHARACTERS 
AND NUMERIC 
PORTION. 


_ GEFRC 
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Name: .GINHD 

Alternate Names: None 

Calling Sequence: CALL .GINHD 
XR2 contains the location of the file control 
block 

Function: To check the header label on a labeled input tape file. 


Called By: .GOPEN 


Note: See "Label Checking and Unit Switching" 


GE-G6OO SERIES — = 


aoe 


Name: -GINTL 


Alternate Names: None 


Calling Sequence: CALL .GINTL 


XR2 contains the location of the file control 


block 


Function: To read and check the trailer label on a labeled input 


tape file. 


Called By: .GFRCE, .GR275 


7 


Note: See "Label Checking and Unit Switching" 
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Name: eGLOPG 
Alternate Names: None 
Calling Sequence: CALL .GIOPG (word) 
word = location of word in which’the new page 


number is to be placed 


Function: To increment the page number used by the PRINT routine 


,and to supply the updated page number in BCD form. 


Called By: .GPRNT 


Calls For: .GBCD, .GBNRY; references .GEDIT 


Number of Words: 52 
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INITIAL 


A le PAGE NUMBER 
ee ee ee ial 
OTHER! ONLY 
ENTRIES 
\ 


INITIAL PAGE 
NUMBER BEEN 
GIVEN? 


NO 


-|ADD ONE TO 
PAGE 
NUMBER 


CONVERT PAGE 
NUMBER TO BCD 
-GBCD 


CONVERT INITIAL 


BCD TO BINARY 
-GBNRY 


INSERT LEADING BLANKS 
IN BCD PAGE NUMBER AND 
PUT IN CALLER'S 

REQUESTED LOCATION 
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Name: .GOPEN 


Alternate Names: OPEN 


Calling Sequence: CALL OPEN (list, n) 
list = location of first of n consecutive file 
designator words for the files to be 
opened. 


n = number of files to be opened. 


Function: To initialize (open) files such that they may be 


properly accessed by other GEFRC functions. 


Called By: User, .GCMDK, .GALTR 


Calls For: .GR225, .GR960, .GINHD, .GOUTH 


Number of Words: 306 
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{ ALL FILES \NO 
DONE? 


| ‘ 
INITIALIZE TO STAR GET DATA FOR ALL 
} 


FILES BEING OPENED 
VIA MME GEFCQN 


WITH FIRST FILE IN | 
LIST 


FILE ALREADY Ss 
OPEN? 
N 


6) 
NO 


FILE LOCKED? a rte 


LINK WITH OTHER 


man genre rm ne ne Pe aa ——— 


SET FILE 


OPEN ILE PREVIOUSLY 
NO EOF Le OPEN OR NOT... 
BLOCK COUNT = 0 7 | 
: , | ALL FIL YES 
9 
ter ves RECORD TYPE VARIABLR vnc —~ oT | 
A 4 BLOCK, SERIAL NUMBERS}—S I ) 
& W/ BUFFERS? oe SEE 
! No 
MAGNETIC TAPE? XE Xs)" sess 
NC ABORT 
#6 Om 


eu tis pc. v 


SET 
PRINTER? MODE 


PAPER TAPE? )<ES> 
YES 
CARD sa ae 


CARD READER? YES (F ) 
Ss 


ABORT 


GE-GOO SERIES 


‘s YES 


INSERT CURRENT CHAIN 
INTO ANY PREVIOUS 
CHAIN MAKING ONLY ONE 

COMPLETE CHAIN 


INITIALIZE TO START 
WITH FIRST FILE IN 
CURRENT LIST 


‘O 


YES 
' QUTPUT FILE? 
NO 


ABORT 
#3 


~36- 


SET FOR | 
NEXT rue |—*(4) 


SET RECORD TYPE 


|] FIXED & UNIT 
RECORD DEVICE 


. 
“, 
Pree rnrraneen bH 
o og 
- 
a 


SET FOR NO LABELS 
& NO BLOCK SERIA 
NUMBERS 


GEFRC 


FILE HAVE NO Beg ate a eae it 
ae dransscnre elatta 


YES | 
a PUT BLOCK SIZE IN 
- | 
eueur Give? | TEMP AND 0 IN BCW ia | 
YES 7 : 
| 
i 


FILE DESIGNATOR a SET "NEXT RECORD 
WORD, SAY BUFFER TO 


ae A NOT THERE" BIT G 
MED? 


nee 


YES 


ISSUE 
READ SELECT 
~GR225 


SET MODE BINARY, 

BLOCK COUNT = 0, & 

FCB -7 & -8 FOR SEEK 
DCW 


NO FILE HAVE \ NO pone 3 

LINKED FILE? BUFFERS? % | 
YES YES | 

RECORD TYPE NO /aBORT 
VARIABLE? #5 ABOR | 

YES #4 | 

FILE HAVE BUFFER 
AND BLOCK SERTAL |-N® er 
NUMBERS? #4 | 
YES | 


IF BLOCK SIZE >320 


SET = 3 20 (e i cotmeneemanentites wn wncnenmammanta menening wna tan Atm ag | 


NL 
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FILE DESIGNATOR 
WORD SAY DO NOT RE- 
WIND & FILE # = 0? 
NO 


SET BLOCK AND FILE| | 
COUNTS ZERO | 

| 

| 


YES 


REWIND 
TAPE 


FILE # IN DESIGNA- 
TOR WORD = 0? 


NO 


FILE #-1l=n 


TAPE LABELED? 


YES 


FORWARD SPACE 
OVER n 178 
FILE MARKS 


GE-6O0 SERIES 


ADD 1TO | 
FILE 
COUNT 


OUTPUT YES 
FILE? 
NO( sper ) 


NO 
TAPE LABELED? 


YES 


SET DENSITY 
& SET BLOCK 
COUNT = 0 
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CHECK HEADER ON 

OLD TAPE AND/OR . 
WRITE NEW HEADER 

.GQUTH 


Name: .GOUTH 


Alternate Names: CALL .GOUTH 


XR2 contains the location of the file control 


block. 


Function: To read the existing header label on a tape to be used 


as an output file, check for expired retention period, 


and write a new header label if so indicated. 


Called By: .GOPEN 


Note: See "Label Checking and Unit Switching" 
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Name: .GOUTL 


Alternate Names: None 


Calling Sequence: CALL .GOUTL 


XR2 contains the location of the file control 


block. 
Function: To write a trailer label on a labeled output tape file. 
Called By: .GCLSE, .GFRCE, .GR275 


Note: See "Label Checking and Unit Switching" ee 
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adja 


Name : «GPNCH 


Alternate Names: PUNCH, .GAPNC 


Calling Sequence: CALL PUNCH (f£cb, image, kind) 
. feb = location of file control block 
image = location of first word of card image 
kind = location of word containing key to type 
of card--zero, column binary; non-zero, 


Hollerith 


Function: To insert a punched card image in the next available 


position in the designated output file. 
Called By: User 
Calls For: .GWTRC, .GILLB: references .GEDIT 


Number of Words: 72 
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SAVE USERS RECORD 
SIZE FROM FCs 


IS IT & COLUM: YES SET RECORD SIZE 
BINARY 
wees TO 24 


BCD |, NO | | 
SET RECORD SIZE oa 
TO 12 IS CARD TO HAVE ,:0 
IS CARD TO NO 
HAVE A LABEL 


(.GE068)? RECORD SIZE 


YES 


ADD 2 TO 
RECORD SIZE 


eA 
g 


SET MEDIA 
CODE sT 1 


SET MEDIA CODE AT 2 oN 


A 


\ 
N. 


SET REPORT CODE AT 
768 


MOVE IMAGE AND 
CODES TO BUFFER 
-GWTRC 


IS CARD TO HAVE A \_YES_ | 


LABEL (.GE068)? ai, 


RESTORE USERS 
RECORD SIZE IN 


FCB 
! SET RECORDING 
IS FILE ON A \ ygs MODE IN FCB 
UNIT RECORD | FOR CORRECT 
DEVICE? TYPE 


NO 
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Name: eGPRNT 


Alternate Names: PRINT, .GAPRN 


Calling Sequence: CALL PRINT (fcb, image, slew) 
fcb = Location of file control block 
image = location of first word of line image 
slew = location of word containing slewing 


information in bits 30-35 
Function: To insert a line into the one current printed report 
whose pages are automatically 1) titled and subtitled, 
2) numbered, and 3) controlled by an internal line 
counter. 
Called By: User, .GEPRN 


Called For: .GWTRC, .GIOPG; references .GEDIT 


Number of Words: 176 
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GEFRC 


IS THERE A YES aes 
9 
SL _ZERO 


Is SLEW eee SET LINE COUNTER | 
CODE FOR TOP 4 ZERO AND SLEW CODE 


OF PAGE? TO ONE 
NO 
NO REDUCE LINE COUNTER 
= 9 : . 
aetna oa (A) “| BY SLEW CODE 
YES ; 


SET LINE COUN-| 


TER ZERO AND 
SLEW CODE TO ONE 


“IS LINE NO 
COUNTER POSI 
TIVE? 


ENTER SLEW 
CONTROLS INTO | 
LINE IMAGE 


i 


WRITE FIRST HEADER 
WITH DOUBLE SPACE 
-GWTRC 


SET LINE 
COUNTER AT 
DZ 


IS THERE 4 
SECOND HEAD- 
ING LINE? 


WRITE SECOND 
HEADER WITH DOUBLE 
SPACE _.GWTRC 


REDUCE LINE 
COUNTER 
BY 2 
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NL 


Name: .GPTBK 
Alternate Names: PUTBK, .GAPTB 


Calling Sequence: CALL PUTBK (fcb, stor) 
feb = symbolic location of file control block 
stor = location of first data word of record 


to be moved into allocated space 


Function: To allocate space at the beginning of a buffer of the 
designated output file for inserting the next Logical 
record of that file and, if desired, move that logical 


record to the allocated area. 


Called By: User 


Calls For: .GPTBK is a separate entry to .GPUT 
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GEFRC 


Name: .GPTSZ 
Alternate Names: PUTSZ, .GAPTS 
Calling Sequence: CALL PUTSZ (fcb, size) 
feb = location of file control block 
size = location of word containing new record 
size in bits 0-17 
Function: To update the file control block of the designated 
output file to reflect the true size of the last 
logical record placed in that file. 
Called By: User; .GCLSE if so initialized 


Calls For: .GR960, initializes .GR185 in .GCLSE 


Number of Words: 62 
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lst 
ENTRY PUT LOC OF .GPTSZ 


Sees INTO .GR185 IN 
.GCLSE 


{ ABORT 
#1 


ALL 
SUBSEQUENT 
ENTRIES 


TEMP - (OLD RECORD SIZE) 
+ (NEW RECORD SIZE) 
=> TEMP 


TEMP > 0? NO { ABORT 
YES a 


ADJUST BCW FOR 


DIFFERENCE IN 
RECORD SIZE 


j | 

RECORD TYPE YES _f NEW RECORD YES | Lee 

= 0? ; 
VARIABLE? SIZE am SUBTRACT 1 

NO FROM BCW 
PUT NEW RECORD | 
NEW RECORD NQ/peTuR SIZE IN RECORD re 

SIZE = 0? y CONTROL WORD ae, 

ES 


/ 
& cage 


C(BCW) = 1 AND 
FILE HAVE BLOCK 
SERIAL NUMBERS? 


NO 


ES 


SET BCW TO ZERO 
AND PUT BLOCK SIZE 


IN TEMP 


a 


RETURN 
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Name: .GPUT 


Alternate Names: PUT, .GAPUT 


Calling Sequence: CALL PUT (fcb, stor) 


feb = location of file control block 
stor = location of first data word of record 


to be moved into allocated space 


Function: To allocate space within a buffer of the designated 
output file for inserting the next logical record of 
that file and, if desired, move that logical record 


to the allocated area. 
Called By: User, .GWTRC 


Calls For: .GR200, .GR275, .GR375, .GR960 


Number of Words: 150 


~ GE-G00 SERIES cided deed cm 


-48- 


SET FLAG FOR .GPUT 
ENTRANCE AND 2ND 
PARsMETER AS ADDRESS 
TO MOVE RECORD 


SET FLAG FOR .GPTBK 
ENTRANCE AND 2ND 
PARAMETER AS ADDRES$ 
TO MOVE RECORD 


SET FLaG FOR .GPUT 
ENTRANCE aND CRX 0 
INPUT FILE AS ADDRESS 
TO MOVE RECORD 


re no (4) 


a 


FILE PRESENT, OPEN no /apop 
OUTPUT WITH BUFFERS ‘are 
YES 


RECORD TYPE “, NO 
VARIABLE? 


* 
i 
c 


, 
ee 


TEMP = BLOCK SIZE?\ YEY 5 gyprens? \°S WATT FOR 19} (TRANSMISSIONNQ/ gy... - 
BUFFER EMPTY? Sean TOU REND SK OK? or 
NO 


YES 
KR... ; avi > ee 
S FILE ON UNIT \ oie (C) RECORD = Car 
RECORD DEVICE OR IS : BIGGER THAN { ABORT z 
ENTRANCE FROM GPIBKe BUFFER?. #4 . 
NO 0 \y 
(ROOM FOR RECORD? “2 ISSUE s 
RITE SELECT 2 BUFFERS? D3- > 
an -SR200 i 
PUT LOCATION OF OO rs = tee \ 
BUFFER +1 +x +BCW) & | ee 38 
INTO. CRX 3 
2 IF FILE FOR t 
Ne, SYSBUT ADD 2 
PUT\ TEMP '-RECORD |‘ eee) ne x, 1F BLOCK 


SIZE -x INTO TEMP 


SERT TAL #, ADD 


| SIZE +x ANTO BCW So oo? REY eee . +x INTO CRX . 
PUT RECORD SIZE 
+x INTO BCW . 


Cum | a | PUT BLOCK SIZE 
se ats _ | -BCW INTO TEMP 


: eal PUT RECORD . 
IS RECORD y. SIZE IN. ac: of Wheat 

TYPE CONTROL WORD & 
VARIABLE? 


IF REQUESTED, MOVE 


RECORD INTO BUERER 


‘ 
ale Yee ertnes 
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-49. 


GE-6OO SERIES 


4 


ANALYZE 
STATUS 
~GR275 


IGNORE 
STATUS 
RETURN? 
NO 

0) 


E®F RETURN? 


N 


USER ERROR PROCEA NO 
DURE RETURN? 


YES 


CaLL USER ERROR 
~ PROCEDURE? 
— «GR375 


f 
16 
REISSUED? 


NO 
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GEFRC 


Name: ~GRDCD 
Alternate Names: None 


Calling Sequence: CALL .GRDCD (f£cb) 


fcb = location of file control block 
Function: To get the next logical record from the designated 
input file, and decompress it if it was recorded as 
a COMDEK image. 
Called By: .GRDRC, .GALTR 


Calls For: .GGET, .GR960 


Number of Words: 146 


(EERO STE ES a 
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INCOMPLETE \ No _| SET SWITCH 
SWITCH = 0? TO ZERO B 


YES 
GET LOGICAL 


RECORD FROM INPUT 
FILE -GGET 


a 


EQF RETURN? aes fern 
| NO 
IS RECORD A \ No 
BINARY CARD? 


| aDD TO 
IS ITA S$ NO ~ 
CONTROL CARD? © jo uN | 

ES Z 


TES). 


WRITE IMAGE 
ON EXECUTIO 
REPORT 


CARD COUNT = SEQ. \NO/ anor 
FROM CaRD? #2 
YES: : 


ADD TO CARD COUNT — 
INITIALIZE TALLY FOR 
BEGINNING OF INPUT 
_____ CARD 


| GET CHARACTER FROM | 
IMAGE. (FIELD LENGTH) 


END OF COMPRESSED\ YES 

caRD (00)? ay, . 

NO . ENTER LEADING BLANKS 

INTO OUTPUT IMAGE FOR 
ND .OF HOLLERITH \No ND OF DECK NO DIFFERENCE IN THE 
(CARD (77)2 0 (76)? CONTROL CHARACTERS. 

YES YES MOVE NUMBER OF CHAR. 


GIVEN IN STRING 
& LENGTH FROM INPUT TO 


ENTER LOCATION OF 
OUTPUT IMAGE IN CRX 
OF USERS INPUT FCB 


ne ae | TALLY ERROR IN NES Ayort 
SET INCOMPLET = oe {c) MOVING CHARACIERS #3 


SWITCH #0. ¥ NO 


OUTPUT AREAS 
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Name: .GRDRC 
Alternate Names: RDREC, .GARDR 


Calling Sequence: CALL RDREC (fcb, eof) 
fcb = location of file control block 


eof = location of end-of-file routine 


Function: To obtain the next logical input record from the 
designated file (with decompression from COMDEK 
form, if necessary) or from an Alter file of changes 
to the designated file. Also, if requested, to compress 
this logical record into the COMDEK format and insert 


it into the file designated as K*. 
Called By: User 
Calls For: .GRDCD, .GALTR, .GCMDK 


Number of Words: 52 
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-GRDRC 


W 


GET RECORD FROM ALTER 
FILE IF ONE EXISTS & IF 
NEXT RECORD SHOULD COME 
FROM THERE ' — 

-GALTR 


/DID WE GET 
(RECORD VIA ALTER} 


YES 


GET RECORD FROM INPUT } 
FILE & DECOMPRESS FROM 
C@MDEK IF NECESSARY 

-GRDCD 


COMPRESS RECORD INTO 
-C@MDEK FORMAT IF: - 
REQUESTED © 
-GCMDK' 


bes 
IS THERE AN EQF 
CONDITION ON THE 
__. INPUT FILE? | 
4 NO: 


x 


GEFRC 
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Name: .GREAD 
Alternate Names: READ, .GAREA 


Calling Sequence: CALL READ (fcb, cont, cc) 
fcb = location of file control block 
cont = location of first control word where 
the control words are DCW's. If the 
file is random drum/DSU, the first 
control word gives the relative block 
address. 


cc = location of a courtesy call routine. 


Function: To initiate the reading of a physical record from the 


designated file under user control. 
Called By: User 
Calls For: .GR250, .GR960, .GR980, .GR990 


Number of Words: 56 


O00 oe ee 
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PRESENT, OPE 
INPUT . 

W/O BUFFERS 
W/O EGF 


NO ANALYZE 
EXCEPTIONS 
-GR250 


OUTPUT FIL 


FOR 
DRUM/DSU? 
@ i 
EQF RETURN? YE 
DEVICE NO 
RANDOM NO YES SET E@F BIT 
, NOT PRESENT? . ON 
DRUM/DSU? 
YES NO 
USE 2ND PARAMETER (BOF BUT OK TO 88") | el 
READ RE 2 
FOR SEEK aDDRESS EAD = Seta 


PREPARE SELECT 
SEQUENCE TO READ 
-GR980 


RD PARAMETER 
GIVEN? 


PUT COURTESY 
CALL ADDRESS 
IN SELECT 

SEQUENCE 


ADD ONE TO 
BLOCK COUNT 
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Name: .GRLSE 


Alternate Names: RELSE, .GARLS 


Calling Sequence: CALL RELSE (fcb) 


fcb = location of file control block 
Function: To cause the next referenced logical record of the 
designated file to be the first logical record of the 
next physical record. 
Called By: User, .GBSRC, .GFSRC, .GFRCE 


Calls For: .GR200 


Number of Words: 26 
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PRESENT 
OPEN NO 
WITH BUFFERS 
Y 


4 


ES 
NO BUFFER EMPTY YES 
INPUT FILE? (TEMP = BLOCK RETURN 
SIZE? ) 
YES 


O 
. P aaa — 
ILE NEVER YE / 
USED RETURN -GR200 } 
TEMP = 0)? ae } 
4 
NO 
cain SET "NEXT 


TWO BUFFERS? no ¥ RECORD NOT TIiERE 
cee FLAG ON 


PUT TEMP INTO 
BCW TO FORCE 


SWAPPING OF 
BUFFERS ON 


NEXT ACCESS 
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-58- 


Name: .GRWND — 
Alternate Names: REWND, .GARWN 


Calling Sequence: CALL REWND (fcb) 


fcb = location of file control block 


Function: To rewind a file whose device is unlabeled magnetic 


tape, linked drum, or linked disc storage unit. 
Called By: User 
Calls For: .GR960 


Number of Words: 44 
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DEVICE MAGNETIS 
DEVICE LINKED D/D 
PRESENT 
OPEN 


SET BLOCK AND FILE 
COUNTS TO ZERO; IF 
_ INPUT W/BUFFERS , 
SET "NEXT RECORD 
NOT THERE" BIT ON; 
TURN OFF EGF BIT 


REWIND FILE 


GE GOO SERIES | —— — , ane 
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Name: .GR200 


Alternate Names: None 


Calling Sequence: CALL .GR200 (fcb) 


fcb = location of file control block 


Function: To effect the writing of the current buffer of the 


designated file and to do the necessary bookkeeping on 


that file. 


Called By: .GCLSE, .GPUT, .GRLSE, .GWEF 


Calls For: .GR375, .GR960, .GR980, .GR990 


Number of Words: 92 
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FORM DCW IN BCW 
ADD ONE TO BLOCK 
COUNT 


FILE HAVE BLOCK yes | FORM BLOCK SERIAL 
9 > NUMBER WORD IN 
SERIAL NUMBERS? me Ss 


SWAP BUFFER POINTERS 


WAIT FOR PRE- WRITE RECORD TO 
IS FILE ASSIGNEX 
TO SYS@UT? <ES51 VIOUS Ig ON THIS SYSQUT 
/ _FILE TO FINISH MME_GESY@T 
NO 
PREPARE WRITE (8) 


SELECT SEQUENCE 
.GR980_.-/)\} / 


PUT BLOCK 


ISSUE ne 
ONE BUFFER? = (a) > SELECT . SIZE IN Saul 


B } 
’ No ~i:GR990 SS 
. 4) i re 


WAIT FOR PREVIOUS 
c * Ig ON THIS FILE TO 
FINISH 


pat pow 
ae 


(WiaS TRANSMISSION \yEg/)———-— -<sc=< 
\ OK? ‘ 


NO 
ANALYZE 


STATUS 
~GR275 


YES _/ ABOR 
EGF RETURN? HL 


NO 


—_ 


STATUS TO BE \ygs | 
IGNORED TYPE OF (a) 
R RI 


NO 


SER ERROR PROCE-\ YES CALL USER ERROR 
DURE TYPE. OF < PROCEDURE 
SELLS -GR375 


WAS WRITE \.YES 
ABORT REISSUED? 
#2 NO | 
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Name: .GR225 
Alternate Names: None 


Calling Sequence: CALL .GR225 (£cb) 


feb = location of file control block 
Function: To effect the reading of the next physical record of 
the designated file into a buffer for that file and to do 
the necessary bookkeeping on that file. 
Called By: .GGET, .GOPEN, .GSTIN 


Calls For: .GR980, .GR990 


Number of Words: 44 
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FORM DCW IN BCW 
SWAP BUFFER 
POINTERS 


PREPARE READ 
SELECT SEQUENCE 


-CR980 
! - ISSUE 
ONE BUFFER? A ~ SELECT 
WAIT FOR 


PREVIOUS I¢ 
ON THIS FILE 
TO FINISH 


MOVE BOTH STATUS 
WORDS TO SPECIAL 
AREA FOR 2-BUFFER 
USE 


WAS TRANSMISSION \_YES,/~ 
OK? 


NO 
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Name: .GR250 


Alternate Names: None 


Calling Sequence: A register contains 1-bit in each position 

where the contents of word-5 of the file control 

block do not match that required for normal 

operation of the calling routine. XR2 contains 

the location of the file control block. 

& TSXO .GR250 

+l Return here if file not present 

+2 Return here if end-of-file cannot be 
overridden 

+3 Return here if an end-of-file existed but 
another read command may now be given 

+4 Return here if device is random drum/DSU and 
the input-output bit is the only exception 


+5 Return here if activity should be aborted 
Function: To analyze the exception conditions shown in the file 
control block and to take any standard actions which 


are appropriate. 


Called By: .GFSRC, .GGET, .GREAD, .GWRIT 
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-GR250 (continued) 
Calls For: .GUSWH 


Number of Words: 36 
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IS FILE \NO . 
PRESENT? : 
YES 


1 


INPUT-OUTPUT BIT DEVICE 
THE ONLY EXCEPTION?}Y=S { RANDOM YES EXIT | 
: DRUM/DSU? #4 

NO NO 


S E@F THE * 
ONLY EXCEP- 
TION? 
YES 


{S DEVICE ‘ 
MAGNETIC , 
TAPE? 


IS ITA ves | ADD TO 
MULTL-FILE > FILE COUNT 
REEL? 


NO 


PERFORM 
IT SWITCH 
. GUSWH 


@E-800 SERIES _—£é @-@§ o> 
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Name: .GR275 
Alternate Names: None 


Calling Sequence: Bits 2-5 of the A register contains the major 
| status returned by IOS, and XR2 contains the 

location of the file control block. 

A TSXO .GR275 

+1 Return here if status is true end-of-file 

+2 Return here if non-17g file mark on 
magnetic tape 

+3 Return here if user has supplied an error 
routine which should be called 

+4 Return here if program should be aborted 


+5 Return here if status should be ignored. 


Function: To analyze status returns which are not "channel ready" 


and to take any standard actions which are appropriate. 
Called By: .GCLSE, .GFSRC, .GGET, .GPUT, .GWAIT, .GWEF 
Calls For: .GR390, .GINTL, .GUSWH, .GOUTL 


Number of Words: 112 


GE-G00 SERIES ae 


-68- 


ae NO IS STATUS THE FABRI-\ NO : 
STATUS EQF? CATED E@F FOR DRUM/DSU C 
YES ry 
IS DEVICE NO RANDOM NO 8) LINKED YES _/EXIT 
MAGNETIC TAPE? DRUM/DSU? DRUM/DSU? #5 
S 


YE YES NO 


IS FM = 0 FOR YES - , 


T EGF IN 
CHECKPOINT? SPACE TO 


0 NEXT FILE 
MARK 


N 
} | 
IS FM = 178? 
4 


E 


NO 
Ss 
IS TAPE NO SET EGF IN FCB 
LABELED ? > SET BLOCK COUNT 
Ss 


YE ZERO 


ADJUST BLOGS 
COUNT IF NO 
BUFFERS 


REISSUE LAST 
READ OR WRITE 
-GR390 


\ 
PF BIT SET ON 
BY .GINTL? 


N 
NO. /USER ERROR NO IS DEVICE No _{ EXIT 
p 
| DEVICE MAGNETIC TAPE? QUTINE GIVE PRINTER? #4 
| y YES 
IS STATUS END-OF-TIAPE? Is STATUS TOP-OF-\y 
YE PAGE ON TERMINATE? 
: O 
YE 


WRITE EQF (178) N 


S 
i IS STATUS TOP-OF-\yvpg - 
IS TAPE LABELED? NO, PAGE ON INITIATE? (A) 
. S 


| NO 
WRITE LABEL & 
UNIT SWITCH : EXIT 

_GOUTL #5 ca 


GE-600 SERIES em 
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Name: .GR375 


Alternate Names: None 


Calling Sequence: TSXO .GR375 


ARG location of SAVE within calling routine 
ARG code for type of error 

Return here if error to be ignored 

Return here if IO request has been reissued 
The error code in the second ARG is zero if 
-GR375 is to determine the type of error. XR2 


contains the location the file control block. 


Function: To call the users error routine specified in word-5 


of the FCB and to insure that his action did not use 


the routine which encountered the error and called 


-GR375. 


Called By: .GBSRC, .GFSRC, .GGET, .GPUT, .GWAIT, .GR200 


Calls For: .GR390, .GR960, User's error routine 


Number of Words: 59 


@E-600 SERIES ” 
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SAVE XR1 VALUE 
STORED BY SAVE IN 
CALLING SUBROUTINE 
AND REPLACE IT WITH 
ZERO 


CREATE PROPER 


IS ERROR YES CODE FROM 
CODE = 0? STATUS WORDS 
IN FCB 


CALL USERS ERROR 
ROUTINE 
-5,2* 


XR1 POSITION IN 
SAVE OF CALLING 
SUBROUTINE STILL=03 

YES 


RESTORE XR1 IN SAVE 
OF CALLING SUBROUTINE 


ERROR CODE YES 
= 3 OR 5? 


NO 


NO__/ABORT 
#1 


REISSUE I¢ 
COMMAND THAT 
CAUSED ERROR 
~GR390 


GE-600 SERIES —— a 
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Name: .GR390 


Alternate Names: None 


Calling Sequence: TSX4 .GR390 


XR2 contains the location of the file control 


block. 
Function: To create a select sequence and issue the command to 
repeat a read or write operation which previously . 
resulted in an initiation interrupt. A code 3 or 5 
error was reported to the user via .GR375 and the user 
requested that GEFRC retry the operation. 
Called By: .GR375, .GR275 


Calls For: Uses table of commands in .GR980 


Number of Words: 33 


GE-600 SERIES —— = 
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Name: .GR960 


Alternate Names: None 


Calling Sequence: TSX0O .GR960 


BCI LL. errrryr 

where c is a code number for the type of error 

and rrrrr is the name of the routine in which the 
error was found. The location of the file control 
block for the file on which the error occurred 


is in XR2. 


Function: To write a message on the execution report via SYSOUT 
and then abort the program. The format of the message is: 
ABORTED BY GEFRC ROUTINE rrrrr CODE c FILE CODE ff 
where c and rrrrr are as in the calling sequence and 


££ is the file code of the file referenced by XR2. 


Called By: .GBSFM, .GBSRC, .GCLSE, .GFRCE, .GFSFM, .GFSRC, .GGET, 
-GOPEN, .GPTSZ, .GPUT, .GRDCD, .GREAD, .GRWND, .GWAIT, 


-GWEF, .GWRIT, .GR200, .GR375, .GR980 
Calls For: None 


Number of Words: 32 


GE-GOO SERIES 
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GEFRC 


Name: .GR980 


Alternate Names: None 


Calling Sequence: TSX4 .GR980 
where: C(Q) 8-35) = location of first DCW 


C(X2) = location of file control block 
C(Ag 9) = recording mode as in 20-21 of 
word 0 of FCB 
C(A,1) = zero if read command, one for 
write 
C(A}3-17) = Gegies code as in 25-29 of 
word O of FCB; all other bits 


of A register are zero 
Function: To create a select sequence to IOS for reading or writing 
with any legal device. The select sequence is within 
the .GR990 subroutine. 
Called By: .GCLSE, .GREAD, .GWRIT, .GR200, .GR225 
Referenced by: ~.GR390 


Calls For: .GR960; references .GR990 


Number of Words: 66 


@E-600 SERIES -—— ome 


~74- 


GE-GOO SERIES 


-GR980 


INITIALIZE FIELDS OF 
SELECT SEQUENCE 
DCW POINTER = C(QL) 


FILE POINTER = C(X2)-4 
STATUS Se POINTER = 


SEARCH TABLE OF 
COMMANDS WITH OPERA- 


TION, MODE AND DEVICE 
CODES IN AR 


FIND NO (ABORT 
MATCH? #1 


PUT CORRESPONDING 


COMMAND INTO SELECT 
SEQUENCE 


IS DEVICE DRUM YES 
OR DSU? 


NO 


SET SELECT SEQUENCE 
TO SHORT FORM 


~75- 


SET SELECT SEQUENCE 
TO LONG FORM INCLUDING 
SEEK COMMAND AND 


FOR SEEK WITH 
C(X2)-8 


INITIALIZE DCW POINTER - 


GEFRC 


Name: .GR990 
Alternate Names: None 


Calling Sequence: CALL .GR990 


Function: To issue a select via I0S for a read or write operation. 
The select sequence contained within this routine was 
previously prepared by .GR980. 

Called By: .GCLSE, .GGET, .GREAD, .GWRIT, .GR200, .GR225 

Referenced by: .GR980 


Calls For: None 


Number of Words: 16 


GE-GOO SERIES oa 
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Name: .GSTIN 
Alternate Names: SETIN 


Calling Sequence: CALL SETIN (fcb) 


feb = location of file control block 


Function: To set a currently open file to an input file 


regardless of its current mode. 
Called By: User 
Calls For: .GR225 


Number of Words: 22 


GE-6OO SERIES O£$ioMm oo 


-T7- 


IS FILE AN 
INPUT FILE? 


NO 


SET BIT IN FCB 
FOR INPUT 


DOES FILE HAVE\ yo 
BUFFERS? 
‘YES 


SET 1ST STATUS WORD 
FOR If DONE & OK 


GE-600 SERIES 
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Name: .GSTOT 
Alternate Names: SETOUT 


Calling Sequence: CALL SETOUT (fcb) 


feb = location of file control block 


Function: To set a currently open file to an output file regardless 


of its current mode. 
Called By: User 
Calls For: None 


Number of Words: 56 


Ge 000 SESS 


-7T9-. 


S FILE Z 
OUTPUT FILE? \}—YES 5, 


NO 
SET BIT IN FCB FOR 
OUTPUT 
TURN OFF EGF AND 
SOES FILE "NEXT RECORD NOT 
HAVE BUFFERS} 2 (x) THERE" BITS, SET 
| STATUS FOR If DONE 
YES is  & OK. . 


"NEXT RECORD NOT 
THERE" BIT ON? 


NO BLOCK SIZE 
=> TEMP 
BACKSPACE n 


RECORDS, n = 


YES 


NO. BUFFERS 


SET BCW AND TEMP FOR 
NEXT RECORD OF 
CURRENT BUFFER IN 
OUTPUT STATE 


GE-600 SERIES ———— oe 
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Name: -GUSWH 


Alternate Names: None 


Calling Sequence: CALL .GUSWH 


XR2 contains the Location of the file control block. 


Function: To switch units for a multi-reel tape file and to perform 


any necessary label procedures. 


Called By: .GFRCE, .GR250, .GR275 


Note: See "Label Checking and Unit Switching" jo. Coe) 


GE-600 SERIES— | cxrnc 


-81- 


Name: .GWAIT 
Alternate Names: WAIT, .GAWAI 
Calling Sequence: CALL WAIT (fcb, eof) 
7 fcb = location of file control block 
eof = location of end-of-file routine 
Function: To delay processing until the satisfactory completion 


of the last requested I-O activity on the designated 


file. 


Called By: User 


Calls For: .GR275, .GR375, .GR960 


Number of Words: 50 


GE-600 SERIES —-— A —_$_$__ 


SET A TO EQF 


PARAMETER, IF ONE 


YES 
EGF ON? Gs) 
NO 
WAIT FORI-9 


TO FINISH 
IA GERELC 


STATUS CHANNEL \ YES 
READY? 


Zz 
io) 


ANALYZE 
STATUS 
eGR275 


EQF RETURN? 
NO 


| 
TATUS TO BE YES 
IGNORED? 
NO 
USER ERROR ROUTINE yo 
RETURN? ae 


YES 


: 

W 

| 

| 

| 

| 

| 
a8 

z 


CALL USER ERROR 
PROCEDURE, NO 
CODE _.GR375 


READ/WRITE \YES (a ) 
REISSUED? 
NO 


ERROR CODE = 6 YES 
FOR BLANK TAPE ON & 
READ 


NO 


ZL 


GE-600 SERIES ee 
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Name: .GWEF 


Alternate Names: WEF, .GAWEF 


e 


Calling Sequence: CALL WEF (fcb, file~mark) 
. feb = location of file control block 
file~mark = location of word containing file 


mark character in bits 30-35 
Function: To write a file mark on an output file whose device is 


magnetic tape, linked drum, or linked disc storage 


/ unit. 
Called By: User 
Calls For: .GR200, .GR275, .GR960 


Number of Words: 114 


GE-GOO- SERIES Seren 


—-84- 


DEVICE MAGNETIC 
TAPE, LINKED DRUM, OR 
LINKED DSU, PRESENT 
OPEN 


“O98 
#3 


OUTPUT 
YES 
AVE BUFFER 
MAGN YES ./witH SOMETHING \NO 
IN BUFFER? 
DRUM/DSU = 


IS BUFFER FULL? & 
NO 
& FLUSH 
BUFFER 


-GR200 
ENTER EQ@F CHARACTER 
Te ee ee ee) 
NEXT CONTROL WORD, READ TAPE? 
ADVANCE TEMP AND NO T YES 
BCW 
ANALYZE 
STATUS & 


.GR275 
FM = 00 or 77g? ES 
7 © 
“A. BOF RevuRN? _) yes 
cr ex Tay SC 
#1 ; és Eee EM = 1787 
NO ; NO 


YES | 
ABORT ERROR PROCEDURE 
#4 7 RETURN? ADD ONE TO 
BLOCK COUNT 


ADD ONE TO 


NO FILE COUNT, 
SET BLOCK 
s (STATUS TO BE COUNT ZERO 
EC rcxonsoe ) 

NO 
WRITE FILE 
MARK IN MODE 

ABOR OF FILE 
#2 


GE-G00 SERIES _ i 


~85. 


Name: .GWRIT 
Alternate Names: WRITE, .GAWRI 


Calling Sequence: CALL WRITE (fcb, cont, cc) 
| £cb = location of file control block 
epee dgeatien of first control word where the 
control words are DCW's. If the file is 
on random drum/DSU, the first control 


word gives the relative block address 


ce = location of a courtesy call routine 


Function: To initiate the writing of a physical record on the 


_ designated file under user control. 
Called By: User 
Calls For: .GR250, .GR960, .GR980, .GR990 


Number of Words: 54 


GE-GOO SERIES , __GEFRC 


-86- 


PRESENT 


OPEN NO ANALYZE 

OUTPUT EXCEPTIONS 
W/O BUFFERS .GR250 
W/O EQF 


GD aes 
Serun #1 
NO “—™. 
EGF RETURN? YES{ABORT 
<r #2 


Oo 


INPUT FILE FOR 
DRUM/ DSU? 


DEVICE RANDOM os 
9 
DRUM/DSU? | inane 
#3 
USE 2ND 
PARAMETER FOR 
SEEK ADDRESS 


PREPARE SELECT 


PUT COURTESY 


3RD PARAMETER YES |} cazz ADDRESS 
GIVEN? = IN, SELECT 
\ 


ADD ONE TO 
BLOCK COUNT 


ISSUE 
SELECT 
.GR990 


GE-600 SERIES a 
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Name: - GWTRC 


Alternate Names: WIREC, .GAWTR 


Calling Sequence: 


CALL WIREC (fcb, image, media, report) 

fcb = location of file control block 

image = location of first word of the output 
image to be moved 

media = location of word containing media code 
in bits 30-35 

report = location of word containing report code 


in bits 30-35 


Function: To insert in the next available position in the 


designated output file a logical record whose ultimate 


form is 


to be a printed line or a punched card 


Called By: User, .GALTR, .GCMDK, .GPRNT, .GPNCH 


Calls For: .GPUT 


Number of Words: 34 


GE-600 SERIES 


-88- 


,_ . GEFRC 


MOVE OUTPUT IMAGE TO 
BUFFER OF USER'S OUTPUT 


FILE 
«GPUT 


IS RECORD TYPE 
VARIABLE? 


YES 


INSERT MEDIA AND 
REPORT CODES INTO 
RECORD CONTROL WORD 


GE-GOO SERIES = 


Bestop 


Name: Label Checking and Unit Switching 

Entry Names: .GINHD, .GINTL, .GOUTH, .GOUTL, .GUSWH 

Procedure: The label checking and unit switching control routine 
has entries for the five names listed above. It calls 
for the appropriate routine(s) to be loaded into its 
own overlay area from the system library and for their 
subsequent execution. 


Calls For: Loading of subroutines via MME GECALL 


Number of Words: 330 including label and subroutine overlay areas 


GE-600 SERIES— ae 
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baad 


Chick Pivtos Cppel 
: LQ -w haw Denacl 


-GINHD 


TAKE 
CHECKPOINT 


(nn 


dla : s , Rs 
OUtet si én w bbe é aw) rbh Agel 
. dnt Oe, ae 4 


f ie iene. é 

Auk Ptr htads Abbe 

LOAD @UTHDA & .|-*%\ 

EXECUTE Par: te 
YES AV 

- RETURN #1? : (7) eae 
#2 NO | to . Sy le a 


qs 


LOAD QUTHDB & 
EXECUTE 
RETURN #12? ES (CF) 
No 
RETURN # 27 }YES © | 
#3 | NO 
LOAD @UTHDC 
& & EXECUTE | 


GE-600 SERIES eae 


-~91- 


GE-GOO SERIES 


LOAD INTLR 
& EXECUTE 


NO 


SET CHECK 
SWITCH | 
NYES" 


LOAD USWCH 
& EXECUTE 


RETURN # 1? 


NO 


RETURN # 2? 


NO 


~99_ 


*  GEFRC 


NO 


NO 


BLANK TAPE? 


IS RECORD A NO JFORW. 
Q EADER LABEL?/ : 
USERS PRE-HEADER\ | = 


LABEL PROCEDURE, 
IF ANY 


FILE SERIAL NO YES ~/_ 
99999 IN FCB? 


_ (FILE SERIAL NO. IN\ NO 


LABEL = IN FCB? ae Ke) 


NO 
as YES 


REEL SEQ. # IN NO (c) 
LABEL = IN FCB? 


YES 


FILE NAME YES FILE NAME IN 
GIVEN? = 
NO } 


LABEL 


2 >X4 


IN FCB? 
YES 


USERS POST-HEADER : FORWARD 


LABEL PROCEDURE, 
IF ANY 


GE-6OO SERIES 
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“© 


x 


INHDRB 


PARITY ERROR? S.J TYPE MESSAGE: _ 


NO 


Q REPEAT SWITCH Sa wie ae 
(BLANK TAPE? \_YES | TYPE MESSAGE & READ REPLY: 
X4 = 1 : B * © BTIH M@MT icd Gna @ a 
0 Pe eee 


LABEL 
ERROR 


TYPE MESSAGE READ REPLY: . soe . 
CA * DD IHLR MD MT icd @ NAC CB [ LABEL READ FROM TAPE 
CR DD) DDD @ OC FILE SER, #)@) REEL SEQ. #1) GQ) [FILE NAME OR BLA 


STATUS "OPERATOR \XE [REPEAT (0) 
DISTRACTED?" ~~ 7|_MESSA 


[, NO - 
REPEAT NO (>) Eoee 
SWITCH = 0? “ ae Oy ae eues . 
YES a 
NO = YES 
BLANK TAPE? . REPLY = C? “1 > X4 


YES 
REPLY = N?. \NO 
= 


N 
_| YE 
YE 


REWIND & 
UNLOAD TAPE 


CHANNEL NO__.(30 SECONDS | YES} + 2 REPEAT | 
READY? _ \. ELAPSED? pe ae 


i 3 
, 


S . ‘NO. 


2 > x4 | (2 ) 


GE-6OO SERIES —_—= 


94. 


no dcle Fipittic 
Se herbals tf jee 


ane or ms 


acid, 


pucde eb A tatel Pacer dL (ly-c iw i. 
a hpardins tse hurt & peur fae | 


\ 

, / | 

) NO OPERATOR REHY | SET DENSITY] . RETURN | 

DATA ALERT? 4(IF ANY) > AS PER FCB #2 
Es _ ISTATUS WORD#2 | 


INVALID REEL\, YES [1 > INVALID REEL SW \ get BALAK Men 
SW = 0? ">| SET TO READ BCD Pees a ped Mend 


|, NO < staat 2 
O > REPEAT MESS. SW| 


YPE MESSAGE & READ REPLY: _ v= 
* ®M IVR © MT icd M NAF. 7 _ 


ae YES. aE ee 
OPERATOR DISTRACTED A E) REPEAT MESSAGE 
REPEAT MESS. SW NO @)- ee Tenant maa a 
= 0? - ' cares ae 
YES i, 

t 

| 

} 

{ 

i 

| 


YES[0 > REPLY ‘REWIND CHANNEL YES (a) 
& UNLOAD TAPE [7 READY? 
ue fae Yass NO 
YES m4 

[NO G3 NO \_ . ELAPSED? 

(OPERATOR REPLY)+77 ‘| YES 

= STATUS WORD #2 - TS snpeae | 

MESS. SW... 


SET DENSITY AS . 
PER B 
| ej—_——___> 


ili seanlauititsnastinaematinaniane tenant cintalooinacnaamainamamnlen om eT 
Pah meee asent eb ae ok tat 


GE-600 SERIES onrne 
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ae jlo one +d ke Ww villi bo | 
as “hua do_Aidy l ae. i. 


& 


ibe 


+ 
| 


me, 


@UTHDB 


CONVERT CURRENT a 
DATE TO YYDDD | 


[AST CHAR. OF \ygg] CURRENT DATE 
STATUS WORD >> STATUS WORD #1 [> 
#2 = 778? ; | 
ABEL BEGIN WITH 7 
GE 2 600 a BTL (A) | 0 > FIRST MESSAGE SW 
| PLY: 
eget an ees eS Soe © * D GHLR © © MT icd © NA# 
—........,-€3)@ pLABEL ON TAPE} 
NO. a) 
RETENTION DAYS \YES 227. 22S e oe 
= 999? , og Ss ooo Co 
a se, ed, - 


RETENTION DAYS (A) 4 a | DISTRACTED? 3 


4 


_ [TYPE MESSAGE _& READ RE 


YES ne é REPEAT 
ae ae : is ere pgs ae (rE MESSAGE 
=) . oe ee YES. 
. Boag «Why YES/ABORTY (¢ \ 
: re ror ee es _( REPLY = A? : 
OUTPUT TO BE\_NO, D eitiece Miter a Ca, 
LABELED? _ Saeco) ene ae NO 

YE a2 a8 Oe 3 : . 
2  dendeutcat wee apa cua, atone ah fate a REPLYS NP 4: NO (B ) 


= REPLY 
REWIND & UN- 
LOAD TAPE 


CURRENT DATE (YYDDD) 

=> STATUS. WORD #1 
OPERATOR: REPLY(IF ANY 
> STATUS WORD #2 


_( CHANNEL YES 
READY? 
NO 
30 SECONDS NO 


ELAPSED?. 
YES 


; 7 an 1 > FIRST 
7 7 ! MESS. SW 


~ 


D » 


@E-600 SERIEs—— a 


-~96- 


USER PRE-HEADER 
LABEL PROCEDURE, 
IF_ANY 


SET UP LABEL: 


USER POST-HEADER 
LABEL PROCEDURE, 
IF_ANY 


ui 


WRITE LABEL IN 
MODE AS PER FCB 


END OF TAPE? 


YES 


TYPE MESSAGE: to 
CR xo * © EMT DMT icd EQ | 


GE-G00 SERIES 


FILE SERIAL NO ee 
GIVEN IN FCB? . 


GE 2 600 1 BTL ® [ID] © [REEL #) © [FILE SER #] D (REEL SEQ #1] 
@ (CREATION DATE] @ [RETENTION DAYS] [FILE NAME/BLANK] 


_97- 


GEFRC 


BLOCK = 
a onch va 
READ LABEL IN MODE 
PER FCB 
PARITY YES : 
ERROR? = 
NO “ 


BLANK TAPE? )-2ES 


NO 


A + 


aay be 20g 
SERS PRE-TRAILEY 
LABEL PROCEDURE, ) 
IF ANY ) 


TYPE 1 MESSAGE: 
CRYT T+) PITL@MT_ 10a) 
YPE MESSAGE & READ REPLY 


| €R) <OnnGpe sea Oem 


..BLOCK ‘COUNT . 


PT YES: 
BLOCK COUNT SW =-03 ( . 
(BLOCK COUNT Si = TE OO oa 


SERS POST-TRATR 
LABEL PROCEDURE, : 
IF ANY | 


y3e 


NO- 


TYPE MESSAGE & READ REPLY: 
CB) *(1)BCR © © MT icdiT)cA ER 
[coUNT IN LABEL] (Z) (COUNT IN FCB] 


EGF SWITCH = 0? 


= YES (G6, BLANK 
(REPLY = TCE = 
NO 


‘(PLY = C2: = { =) 


NO 


1ST WORD = EGF? 
os F ~(REPLY = a BLOCK COUNT \YES 
: cee: ia ERROR? 
| SET EOF BIT IN bots “REPEAT 
FCB ai 1 > BLOCK 
COUNT SW 
FORWARD SPACE _ | bt aat . >) 
OVER FILE MARK: | = Ro | 


pe > _ ABORT 


GE-G00 SERIES ii | | _GEFRC 


-9§8- 


a 


GUTLR 


4 


USERS PRE- 
TRAILER LABEL PROC 
DURE, IF ANY 


E@F BIT ON \_YES ae pecs . " 
IN FCB? LABEL | ! 
0 
EGR » 1ST 
WORD OF | 
LABEL 


A 


BLOCK COUNT IN 
BINARY » 2ND WORD 
OF LABEL 


USERS POST- 
TRAILER LABEL PRO- 

CEDURE, IF ANY : Seine 
SET TO WRITE 

BCD . 


. MODE NO | ee | 
CONVERT BLOCK 
oe | COUNT IN LABE 


YES TO DECIMAL _ 
SET TO WRITE Pea oy" 
BINARY 7 


WRITE LABEL rs 


STATUS END OF TAPE \YES 
AND MULTI-FILE REEL? | 
NO 


TYPE MESSAGE: 
€RC)*( Li EGTCE)MT icd CR 


WRITE FILE MARK : ee (ABORT 
‘ eee G8 
STATUS END OF TAPE \YES { c) 
& MULTI-FILE REEL? | 7 
- | i 
WRITE LABEL 
_~, P R 

EGF BIT ON IN FCB? \_YES_.]GE(2)600(1) BT ae one TURN 

2 {FILE SER] #1 
NO 


GE-600 SERIES — 
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REWIND & UNLOAD TAPE 
0 % BLOCK COUNT IN FCB 


ADD 1 TO REEL SEQ # FILE 
SWITCH VIA GEFILS 


SAME NO INPUT FILE? \NO 
DEVICE? 


TYPE MESSAGE: 
CR(D)*(Q)MNT(LMT [OLD DEV] (T) 


ES 


TYPE MESSAGE: 
Oke CUimnr(D) Mr foLp vevl @) 
CR*DOO [FILE NaN ENBE HCH) 


ENTER NEW DEVICE IN FCB 
REWIND IF. NOE YES ree. CHA NEL 
AT LOAD ae _ READY? 
POIND i, fe Kee Stet. ee 


CC) (fur rier 
Es [ \ 


TYPE MESSAGE & READ REPLY: 


<a 


CB’ *(1)RDY(D)MT [NEW DEV\T?CE 


(2) 


~\NQ 


YES: 


TYPE MESSAGE & READ REPLY: 
RDY(T)MT [NEW DEV] (Q) cE 
CR © 


(FILE NAME] (T) SEQ ACR 
_W SET EGF BIT : 


j BETO 7 Mg . REPLY EB? i — IN FCB 


#2 NO 


REPEAT ‘© NO_(CREPLY = c? 
MESSAGE eae [Es 


~~ CHANNEL 


NO 


30 SECONDS >(F ) 
ELAPSED? 


YES 


OUTPUT FILE? 


NOON 
RETURN 
ee eee 


LABELED FILE? 
YES © 


GEFRC 


GE-GOO SERIES 
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